10 M% = 5: N% = 7: P% = 4
20 DIM AR%(M%, N%, P%)
30 FOR I=1 TO M%
40 FOR J=1 TO N%
50 FOR L=1 TO P%
60 INPUT "Очередной элемент массива ="; AR%(I, J, L)
70 NEXT L, J, I
80 INPUT "Целое число ="; X%
90 FLAG = 0
100 FOR I=1 TO M%
110 FOR J=1 TO N%
120 FOR L=1 TO P%
130 IF AR%(I, J, L) = X% THEN FLAG = 1: GOTO 150
140 NEXT L, J, I
150 IF FLAG = 1 THEN PRINT "Число есть" ELSE PRINT "Числа нет"
160 END